(dired-insert-subdir): Do not store R switch in `dired-switches-alist'.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 7e96f1673ed4e574254c143473e3f89283ab9329..a58b62498cab7d212fcb0745c8625a0f6a4cf313 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1812,10 +1812,10 @@ This function takes some pains to conform to `ls -lR' output."
        (push (cons dirname switches) dired-switches-alist)))
     (when switches-have-R
       (dired-build-subdir-alist switches)
+      (setq switches (dired-replace-in-string "R" "" switches))
       (dolist (cur-ass dired-subdir-alist)
        (let ((cur-dir (car cur-ass)))
          (and (dired-in-this-tree cur-dir dirname)
-              (not (string= cur-dir dirname))
               (let ((cur-cons (assoc-string cur-dir dired-switches-alist)))
                 (if cur-cons
                     (setcdr cur-cons switches)